home *** CD-ROM | disk | FTP | other *** search
/ The Games Machine 35 / The Games Machine - Ita - CD-ROM Vol.35 / dkedemo it.iso / ALEXDEMO / DATA.Z / SPECIAL.AI < prev    next >
Encoding:
Text File  |  1997-05-24  |  9.7 KB  |  348 lines
  1. ' This file contains some special maneuvers that will only be used in special
  2. ' circumstances.
  3.  
  4. procedure moveFarUnitsToRiver(unitsUnableToMove);
  5. procedure moveCloseUnitsOffTheBoard(unitsUnableToMove);
  6. procedure moveAlexOffTheBoard();
  7.  
  8. procedure MoveCraterusAcrossRiver()
  9. {
  10.     ' Just loop through the units without actually giving up control since he
  11.     ' doesn't have any more units than he has initiative.  Just make sure that
  12.     ' he finishes himself at the end of this procedure...
  13.  
  14.     var unit, hex, majorNum, minorNum, dir;
  15.  
  16.     GroupListReset();
  17.     unit = GroupListGetNext();
  18.     while (unit != -1)
  19.     {
  20.        watch "Now moving this unit across the river: " unit;
  21.         hex = Query(REGION_NUM, unit);
  22.         if (hex > 427)
  23.         {
  24.             ' He still needs to get into position to cross the river...
  25.             write "Still maneuvering to cross the river...";
  26.             MoveToward(226, unit);
  27.             hex = Query(REGION_NUM, unit);
  28.             watch "His new hex is: " hex;
  29.         };
  30.         if (hex <= 427)
  31.         {
  32.             if (hex < 421)
  33.             {
  34.                 ' He is in position to cross the river.  See if he needs to rotate...
  35.                 dir = Query(FACING, unit);
  36.                 if (dir != NORTHEAST)
  37.                     Rotate(unit, NORTHEAST);
  38.             };
  39.             MoveToward(418, unit);
  40.         };
  41.         unit = GroupListGetNext();
  42.     };
  43.     MoveLeader();
  44.     FinishLeader();
  45. };
  46.  
  47. procedure IsCraterusAcrossRiver()
  48. {
  49.     var everyoneAcross, unit, hex, majorNum, minorNum;
  50.  
  51.     everyoneAcross = True;
  52.     GroupListReset();
  53.     unit = GroupListGetNext();
  54.     while ( (unit != -1) AND (everyoneAcross == True) )
  55.     {
  56.         hex = Query(REGION_NUM, unit);
  57.         majorNum = (hex/100)*100;
  58.         minorNum = hex-majorNum;
  59.         watch "Checking this unit to see if he is across the river: " unit;
  60.         watch "His minor number is " minorNum;
  61.         if (minorNum > 20)
  62.             everyoneAcross = False;
  63.         unit = GroupListGetNext();
  64.     };
  65.     return everyoneAcross;
  66. };
  67.  
  68. procedure PeliumWithdrawl()
  69. {
  70.     var outOfRangeList, battlingList, unitRallied, unitRecovered, retVal, done,
  71.          region, unit, close;
  72.  
  73.     write "Here in PeliumWithdrawl";
  74.     unitRallied = Rally();
  75.     if (unitRallied != -1)
  76.     {
  77.         write "A unit was rallied from PeliumWithdrawl";
  78.         return 1;
  79.     };
  80. '    unitRecovered = PartialRecover();
  81. '    if (unitRecovered)
  82. '    {
  83. '        write "A unit was recovered";
  84. '        return 1;
  85. '    };
  86.     outOfRangeList = GetList();
  87.     battlingList = GetList();
  88.     GetUnitsOutOfRange(outOfRangeList);
  89.     GetUnitsEngagedInBattle(battlingList);
  90.  
  91.     ' See if there are units far from the destination...
  92.     GroupListReset();
  93.     unit = GroupListGetNext();
  94.     close = False;
  95.     while (unit != -1 AND NOT close)
  96.     {
  97.         region = Query(REGION_NUM, unit);
  98.         if (region <= 118)
  99.             close = True;
  100.         unit = GroupListGetNext();
  101.     };
  102.     if (close)
  103.     {
  104.         done = False;
  105.         while (NOT done)
  106.         {
  107.             retVal = moveCloseUnitsOffTheBoard(outOfRangeList);
  108.             if (retVal >= 0)
  109.             {
  110.                 AddToList(outOfRangeList, retVal);
  111.             watch "Could not move unit: " retVal;
  112.             };
  113.             if (retVal == MOVE_SUCCESS)
  114.             {
  115.                 done = True;
  116.             return done;
  117.             };
  118.         };
  119.    };
  120.     ' This loop will (should) insure that the A/I leaders will use all of their
  121.     ' commands.
  122.     done = False;
  123.     while (NOT done)
  124.     {
  125.         retVal = moveFarUnitsToRiver(outOfRangeList);
  126.         if (retVal >= 0)    ' This indicates that the unit # could NOT move...
  127.         {
  128.             AddToList(outOfRangeList, retVal);
  129.          watch "Could not move unit this unit: " retVal;
  130.         };
  131.         if (retVal == MOVE_SUCCESS)
  132.         {
  133.             done = True;
  134.          write "Successfully moved a unit in PeliumWithdrawl";
  135.         };
  136.     };
  137. };
  138.  
  139. procedure moveFarUnitsToRiver(unitsUnableToMove)
  140. {
  141.     var farthestUnit, unitList, unitLookingAt, movementRemaining, movementAllowance,
  142.          whichUnitToMove, unitHex, farthestDist, distance, correctFacing,
  143.          dir, retVal, potentialHexToAttack, canRotate, destHex;
  144.  
  145.     destHex = 118;
  146.     write "Here in peliumWeightAndMove";
  147.     ' First, create a list of units that can move.  This involves checking
  148.     ' the group list and NOT adding units in the "unitsUnableToMove" list
  149.     ' and also excluding units that have already moved by this leader.  This
  150.     ' little routine also includes units that have friendlies in their
  151.     ' frontal hexes
  152.     farthestUnit = -1;        ' Illegal unit
  153.     farthestDist = -1;    ' No one will be this close.
  154.     GroupListReset();
  155.     unitList = GetList();
  156.     unitLookingAt = GroupListGetNext();
  157.     while (unitLookingAt != -1)
  158.     {
  159.         if (IsMemberOf(unitsUnableToMove, unitLookingAt) == FALSE)
  160.         {
  161.             movementRemaining = Query(5, unitLookingAt);
  162.             movementAllowance = Query(4, unitLookingAt);
  163.             if (movementRemaining == movementAllowance)
  164.             {
  165.                 if (CanMove(unitLookingAt))
  166.                 {
  167.                     AddToList(unitList, unitLookingAt);
  168.                     unitHex = Query(REGION_NUM, unitLookingAt);
  169.                     distance = Distance(unitHex, destHex);
  170.                     if (distance > farthestDist)
  171.                     {
  172.                         watch "This unit is closest to the destination: " unitLookingAt;
  173.                         watch "His distance to the destination is " distance;
  174.                         farthestUnit = unitLookingAt;
  175.                         farthestDist = distance;
  176.                     };
  177.                 };
  178.             };
  179.         };
  180.         unitLookingAt = GroupListGetNext();
  181.     };
  182.  
  183.     ' Check to see if there were any legal units to move.  If not, then they
  184.     ' are (probably) out of range.  Move the leader...
  185.     if (farthestUnit == -1)
  186.     {
  187.         write "No more units to move... moving the leader.";
  188.         farthestUnit = GetLeader();
  189.         retVal = moveAlexOffTheBoard();
  190.         if (retVal == ALREADY_MOVED)
  191.         {
  192.             ' If I'm in here, that means that there were no more units within range
  193.             ' to move before and after the leader movement.
  194.             FinishLeader();
  195.             return MOVE_SUCCESS;
  196.         };
  197.         if (retVal == 0)
  198.         {
  199.             ' If I'm in here, that means there were no legal moves for the leader
  200.             ' and he couldn't move anyone else, so here it ends.
  201.             FinishLeader();
  202.             return MOVE_SUCCESS;
  203.         };
  204.         return retVal;
  205.     };
  206.  
  207.     ' I have the farthest unit now.  See if he is facing the right direction.
  208.     ' If he isn't, rotate him so he is facing the right direction.
  209.     unitHex = Query(REGION_NUM, farthestUnit);
  210.     correctFacing = IsInGeneralDir(farthestUnit, destHex);
  211.     if (correctFacing == FALSE)
  212.     {
  213.         dir = Direction(unitHex, destHex);
  214.         canRotate = CanRotate(farthestUnit, dir);
  215.         if (canRotate)
  216.         {
  217.             retVal = Rotate(farthestUnit, dir);
  218.             if (retVal == OW_MOVE)
  219.                 return MOVE_SUCCESS;
  220.         };
  221.     };
  222.  
  223.     retVal = MoveToward(destHex, farthestUnit);
  224.     ShootMissilesFar(farthestUnit);
  225.     if (retVal)
  226.         AttackInZOC(farthestUnit);
  227.     if (retVal == 0)
  228.         return farthestUnit;
  229.     return MOVE_SUCCESS;
  230. };
  231.  
  232. procedure moveCloseUnitsOffTheBoard(unitsUnableToMove)
  233. {
  234.     var closestUnit, unitList, unitLookingAt, movementRemaining, movementAllowance,
  235.          whichUnitToMove, unitHex, closestDist, distance, correctFacing,
  236.          dir, retVal, potentialHexToAttack, canRotate, destHex;
  237.  
  238.     destHex = 18;
  239.     write "Here in peliumWeightAndMove";
  240.     ' First, create a list of units that can move.  This involves checking
  241.     ' the group list and NOT adding units in the "unitsUnableToMove" list
  242.     ' and also excluding units that have already moved by this leader.  This
  243.     ' little routine also includes units that have friendlies in their
  244.     ' frontal hexes
  245.     closestUnit = -1;        ' Illegal unit
  246.     closestDist = 999;    ' No one will be this far.
  247.     GroupListReset();
  248.     unitList = GetList();
  249.     unitLookingAt = GroupListGetNext();
  250.     while (unitLookingAt != -1)
  251.     {
  252.         if (IsMemberOf(unitsUnableToMove, unitLookingAt) == FALSE)
  253.         {
  254.             movementRemaining = Query(5, unitLookingAt);
  255.             movementAllowance = Query(4, unitLookingAt);
  256.             if (movementRemaining == movementAllowance)
  257.             {
  258.                 if (CanMove(unitLookingAt))
  259.                 {
  260.                     AddToList(unitList, unitLookingAt);
  261.                     unitHex = Query(REGION_NUM, unitLookingAt);
  262.                     distance = Distance(unitHex, destHex);
  263.                     if (distance < closestDist)
  264.                     {
  265.                         watch "This unit is closest to the destination: " unitLookingAt;
  266.                         watch "His distance to the destination is " distance;
  267.                         closestUnit = unitLookingAt;
  268.                         closestDist = distance;
  269.                     };
  270.                 };
  271.             };
  272.         };
  273.         unitLookingAt = GroupListGetNext();
  274.     };
  275.  
  276.     ' Check to see if there were any legal units to move.  If not, then they
  277.     ' are (probably) out of range.  Move the leader...
  278.     if (closestUnit == -1)
  279.     {
  280.         write "No more units to move... moving the leader.";
  281.         closestUnit = GetLeader();
  282.         retVal = moveAlexOffTheBoard();
  283.         if (retVal == ALREADY_MOVED)
  284.         {
  285.             ' If I'm in here, that means that there were no more units within range
  286.             ' to move before and after the leader movement.
  287.             FinishLeader();
  288.             return MOVE_SUCCESS;
  289.         };
  290.         if (retVal == 0)
  291.         {
  292.             ' If I'm in here, that means there were no legal moves for the leader
  293.             ' and he couldn't move anyone else, so here it ends.
  294.             FinishLeader();
  295.             return MOVE_SUCCESS;
  296.         };
  297.         return retVal;
  298.     };
  299.  
  300.     ' I have the farthest unit now.  See if he is facing the right direction.
  301.     ' If he isn't, rotate him so he is facing the right direction.
  302.     unitHex = Query(REGION_NUM, closestUnit);
  303.     correctFacing = IsInGeneralDir(closestUnit, destHex);
  304.     if (correctFacing == FALSE)
  305.     {
  306.         dir = Direction(unitHex, destHex);
  307.         canRotate = CanRotate(closestUnit, dir);
  308.         if (canRotate)
  309.         {
  310.             retVal = Rotate(closestUnit, dir);
  311.             if (retVal == OW_MOVE)
  312.                 return MOVE_SUCCESS;
  313.         };
  314.     };
  315.  
  316.     retVal = MoveToward(destHex, closestUnit);
  317.     ShootMissilesFar(closestUnit);
  318.     if (retVal)
  319.         AttackInZOC(closestUnit);
  320.     if (retVal == 0)
  321.         return closestUnit;
  322.     return MOVE_SUCCESS;
  323. };
  324.  
  325. procedure moveAlexOffTheBoard()
  326. {
  327.     ' First, determine if there are no more units to move off the board.
  328.     var region, unit, everyoneGone;
  329.  
  330.     everyoneGone = True;
  331.     GroupListReset();
  332.     unit = GroupListGetNext();
  333.     while (unit!=-1 AND everyoneGone)
  334.     {
  335.         region = Query(REGION_NUM, unit);
  336.         if (region != -1)
  337.           everyoneGone = False;
  338.       unit = GroupListGetNext();
  339.     };
  340.     if (NOT everyoneGone)
  341.         MoveLeader()
  342.     else
  343.     {
  344.         unit = GetLeader();
  345.         MoveToward(18, unit);
  346.     };
  347. };
  348.